home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 (Alt) / MACD 5.bin / internet / irc_i_dodatki / damircs6 / rexx / sendbrowser.amirx < prev   
Encoding:
Text File  |  1996-04-28  |  2.3 KB  |  70 lines
  1. /*
  2.       Original author:  Markus "lammy" Lamers
  3.                 email:  markus.lamers@tu-clausthal.de
  4.  
  5.   Re-hacked into this:  Troy "Doogie" Davis
  6.                 email:  doogie@wsp1.wspice.com
  7. */
  8.  
  9. parse arg args
  10. options results
  11.  
  12. amport = 0; ibport = 0; awport = 0
  13.  
  14. if show(p,"AMOSAIC.1") then amport = 1
  15. if show(p,"IBROWSE") then ibport = 1
  16. if show(p,"AWEB.1") then awport = 1
  17.  
  18. if ~amport & ~ibport & ~awport then do
  19.    call rtezrequest("You must have AMosaic, IBrowse, or AWeb running.")
  20.    exit
  21. end
  22. else if amport & ibport & awport then do
  23.    b = rtezrequest("What browser do you want the URL directed to?","_All|A_Mosaic|_IBrowse|A_Web|_Cancel","Send URL...")
  24.    if b = 0 then exit
  25.    if b = 1 then browser = "am ib aw"
  26.    if b = 2 then browser = "am"
  27.    if b = 3 then browser = "ib"
  28.    if b = 4 then browser = "aw"
  29. end
  30. else if amport & ibport then do
  31.    b = rtezrequest("What browser do you want the URL directed to?","_All|A_Mosaic|_IBrowse|_Cancel","Send URL...")
  32.    if b = 0 then exit
  33.    if b = 1 then browser = "am ib"
  34.    if b = 2 then browser = "am"
  35.    if b = 3 then browser = "ib"
  36. end
  37. else if amport & awport then do
  38.    b = rtezrequest("What browser do you want the URL directed to?","_All|A_Mosaic|A_Web|_Cancel","Send URL...")
  39.    if b = 0 then exit
  40.    if b = 1 then browser = "am aw"
  41.    if b = 2 then browser = "am"
  42.    if b = 3 then browser = "aw"
  43. end
  44. else if ibport & awport then do
  45.    b = rtezrequest("What browser do you want the URL directed to?","_All|_IBrowse|A_Web|_Cancel","Send URL...")
  46.    if b = 0 then exit
  47.    if b = 1 then browser = "ib aw"
  48.    if b = 2 then browser = "ib"
  49.    if b = 3 then browser = "aw"
  50. end
  51. else if amport then do
  52.    b = rtezrequest("What browser do you want the URL directed to?","A_Mosaic|_Cancel","Send URL...")
  53.    if b = 0 then exit
  54.    if b = 1 then browser = "am"
  55. end
  56. else if ibport then do
  57.    b = rtezrequest("What browser do you want the URL directed to?","_IBrowse|_Cancel","Send URL...")
  58.    if b = 0 then exit
  59.    if b = 1 then browser = "ib"
  60. end
  61. else if awport then do
  62.    b = rtezrequest("What browser do you want the URL directed to?","A_Web|_Cancel","Send URL...")
  63.    if b = 0 then exit
  64.    if b = 1 then browser = "aw"
  65. end
  66.  
  67. if find(browser,"ib") ~= 0 then address IBROWSE GOTOURL args
  68. if find(browser,"aw") ~= 0 then address AWEB.1 OPEN args
  69. if find(browser,"am") ~= 0 then address AMOSAIC.1 JUMP URL args
  70.